;
;	��������� ������� �� ����� ���� ���������
;	-----------------------------------------
	org	100h
Start:	xor	cx,cx		;��������� CX
	mov	cl,[Lparam]	;CL <- ����� ������
	cmp	cx,0		;����� �����������?
	jz	.Exit		;���� ��
	mov	ah,0eh		;0Eh - ������� ����� �������
	mov	bh,0		;������� �������� ������
	xor	si,si		;SI <- 0
.Next:	mov	al,[Param+si]	;����� ����������
	int	10h		; �������
	inc	si
	loop	.Next		;��������� ��� ����. �������
.Exit:	mov	ax,4c00h	;������� � DOS
	int	21h		; � ����� ���������� 0
	absolute 80h		;��������� ���� ����� �����-�������� 80h
Lparam	resb	1		;����� ������ �������
Param	resb	1		;������ ���� ������